home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEM / N-R / Photone Prepress 2.04.cpt / Photone Prepress™v.2.04D.rsrc / PSTx_8_InkTest < prev    next >
Text File  |  1993-03-18  |  5KB  |  328 lines
  1.  
  2. %© 1990 by CEP, Inc.  All Rights Reserved.
  3. %Print ink calibration test patches as separation
  4. %Last modified 5/13/90
  5.  
  6. /ppSetFrequency 
  7. {
  8.     /ppHTFrequency exch def
  9. } def
  10.  
  11. /ppSetAngle
  12. {
  13.     /ppHTAngle exch def
  14. } def
  15.  
  16. /ppSetSpotFunction
  17. {
  18.     /ppHTSpotFunc exch def
  19. } def
  20.  
  21. /ppSetPrinterCurve
  22. {    
  23.     /ppPrinterCurve exch def
  24. } def
  25.  
  26. /ppTransFunc
  27. {
  28.     255 mul cvi 
  29.     ppPrinterCurve exch get
  30.     255 div
  31. } bind def
  32.  
  33.  
  34. /doRegisterMark
  35. {    
  36.     /ppVPos exch def
  37.     /ppHPos exch def
  38.     
  39.        gsave
  40.         ppHPos ppVPos translate 
  41.         0 0 moveto
  42.            .24 setlinewidth 0 0 6 0 360 arc stroke
  43.            -10 0 moveto 
  44.         20 0 rlineto 
  45.         0 -10 moveto 
  46.         0 20 rlineto 
  47.         stroke
  48.     grestore
  49. } def
  50.  
  51. /ppDoSolid
  52. {
  53.     /ppBlk exch def
  54.     gsave
  55.         ppBlk 72 mul 50 add 680 translate
  56.         0 setgray
  57.         newpath
  58.             0 0 moveto
  59.             0 60 lineto
  60.             60 60 lineto
  61.             60 0 lineto
  62.         closepath
  63.         fill
  64.     grestore
  65.  
  66. } def
  67.  
  68. /ppDoDivider
  69. {
  70.     gsave
  71.         50 670 translate
  72.         .24 setlinewidth
  73.         0 setgray
  74.         newpath
  75.             0 0 moveto
  76.             496 0 lineto
  77.         closepath
  78.         stroke
  79.         
  80.     grestore
  81.     
  82. } def
  83.  
  84. /ppDoSquare
  85.     {    
  86.         /ppgr exch def
  87.         -1 add /wid exch def
  88.         gsave
  89.             ppgr setgray
  90.             newpath
  91.                 0 0 moveto
  92.                 0 wid lineto
  93.                 wid wid lineto
  94.                 wid 0 lineto
  95.             closepath
  96.             fill
  97.         grestore
  98.     } bind def
  99.  
  100. /labelSquare
  101.     {    
  102.         1 exch sub 100 mul
  103.         /ppgr exch def
  104.         gsave
  105.             0 0 moveto
  106.             0 setgray
  107.             ppgr 0.5 add cvi (            ) cvs show
  108.         grestore
  109.     } bind def
  110.  
  111.  
  112. /doMagentaBlock
  113. %increment right
  114. {
  115.     /ppIncr exch def
  116.     /startGray exch def
  117.     /blockCount exch def
  118.     /ppVPos exch def
  119.     /ppHPos exch def
  120.  
  121.     /hIndex blockCount def
  122.     /vIndex blockCount def
  123.  
  124.     gsave 
  125.         {ppTransFunc} settransfer
  126.         ppHTFrequency ppHTAngle {ppHTSpotFunc} setscreen 
  127.         ppHPos ppVPos translate 
  128.         0 1 vIndex 1 sub
  129.         {    pop 
  130.             /ppGVal startGray def 
  131.             gsave 
  132.                 0 1 hIndex 1 sub
  133.                 {     pop 
  134.                     24 ppGVal ppDoSquare 
  135.                     24 0 translate 
  136.                     /ppGVal ppGVal ppIncr add def    
  137.                 } for 
  138.              grestore 
  139.             0 24 neg translate 
  140.         } for 
  141.     grestore 
  142.  
  143.     /ppIndex blockCount def
  144.  
  145.     gsave
  146.         /Courier-Bold findfont 
  147.         9 scalefont setfont 
  148.         ppHPos 3 add ppVPos 4 24 add add translate
  149.         0 1 ppIndex 1 sub 
  150.         {     pop 
  151.             startGray labelSquare 
  152.             /startGray startGray ppIncr add def
  153.             24 0 translate 
  154.         } for 
  155.         
  156.     grestore
  157.     
  158. } bind def 
  159.  
  160. /doYellowBlock
  161. %increment downward
  162. {
  163.     /ppIncr exch def
  164.     /ppGVal exch def
  165.     /blockCount exch def
  166.     /ppVPos exch def
  167.     /ppHPos exch def
  168.  
  169.     /startGray ppGVal def
  170.     /hIndex blockCount def
  171.     /vIndex blockCount def
  172.     gsave 
  173.         {ppTransFunc} settransfer
  174.         ppHTFrequency ppHTAngle {ppHTSpotFunc} setscreen 
  175.         ppHPos ppVPos translate 
  176.         0 1 vIndex 1 sub
  177.         {    pop  
  178.             gsave 
  179.                 0 1 hIndex 1 sub
  180.                 {     pop 
  181.                     24 ppGVal ppDoSquare 
  182.                     24 0 translate     
  183.                 } for 
  184.              grestore 
  185.             /ppGVal ppGVal ppIncr add def
  186.             0 24 neg translate 
  187.         } for 
  188.     grestore 
  189.  
  190.     /ppIndex blockCount def
  191.  
  192.     gsave
  193.         /Courier-Bold findfont 
  194.         9 scalefont setfont 
  195.         ppHPos 16 sub ppVPos 8 add translate
  196.         0 1 ppIndex 1 sub
  197.         {     pop 
  198.             startGray labelSquare 
  199.             0 24 neg translate 
  200.             /startGray startGray ppIncr add def
  201.         } for 
  202.         
  203.     grestore
  204.     
  205. } bind def 
  206.  
  207. /doCyanBlock
  208. %all patches are same gray
  209. {    pop                        %pop increment
  210.     /ppGVal exch def
  211.     /blockCount exch def
  212.     /ppVPos exch def
  213.     /ppHPos exch def
  214.  
  215.     /hIndex blockCount def
  216.     /vIndex blockCount def
  217.     gsave 
  218.         {ppTransFunc} settransfer
  219.         ppHTFrequency ppHTAngle {ppHTSpotFunc} setscreen 
  220.         ppHPos ppVPos translate 
  221.         0 1 vIndex 1 sub
  222.         {    pop  
  223.             gsave 
  224.                 0 1 hIndex 1 sub
  225.                 {     pop 
  226.                     24 ppGVal ppDoSquare 
  227.                     24 0 translate     
  228.                 } for 
  229.              grestore 
  230.             0 24 neg translate 
  231.         } for 
  232.     grestore 
  233.     
  234.     gsave
  235.         /Courier-Bold findfont 
  236.         14 scalefont setfont 
  237.         ppHPos ppVPos 20 add 24 add translate
  238.         1 ppGVal sub 100 mul
  239.         /ppgr exch def
  240.         gsave
  241.             0 0 moveto
  242.             0 setgray
  243.             ppgr 0.5 add cvi (       ) cvs show
  244.             (% Cyan) show
  245.         grestore
  246.     grestore
  247.     
  248. } bind def 
  249.  
  250. /doLabel 
  251. {    /ppLabel exch def
  252.     gsave
  253.         /Courier-Bold findfont
  254.         12 scalefont setfont
  255.         50 50 translate
  256.         0 0 moveto
  257.         ppLabel show
  258.     grestore
  259. } bind def
  260.  
  261. /ppDoCyan
  262. {
  263.     200 600 4 .95 .01 doCyanBlock
  264.     325 600 6 .85 .01 doCyanBlock
  265.     105 420 8 .75 .01 doCyanBlock
  266.     325 420 8 .50 .02 doCyanBlock
  267.     70 190 6 .25 .03 doCyanBlock
  268.     240 190 6 .15 .03 doCyanBlock
  269.     410 190 6 .05 .03 doCyanBlock
  270.     0 ppDoSolid
  271.     1 ppDoSolid
  272.     5 ppDoSolid
  273.     6 ppDoSolid
  274.     ppDoDivider
  275.     70 300 doRegisterMark
  276.     70 580 doRegisterMark
  277.     550 300 doRegisterMark
  278.     550 580 doRegisterMark
  279.     (Cyan) doLabel
  280. } def
  281.  
  282. /ppDoMagenta
  283. {
  284.     200 600 4 .95 .01 doMagentaBlock
  285.     325 600 6 .85 .01 doMagentaBlock
  286.     105 420 8 .75 .01 doMagentaBlock
  287.     325 420 8 .50 .02 doMagentaBlock
  288.     70 190 6 .25 .03 doMagentaBlock
  289.     240 190 6 .15 .03 doMagentaBlock
  290.     410 190 6 .05 .03 doMagentaBlock
  291.     1 ppDoSolid
  292.     2 ppDoSolid
  293.     3 ppDoSolid
  294.     6 ppDoSolid
  295.     ppDoDivider
  296.     70 300 doRegisterMark
  297.     70 580 doRegisterMark
  298.     550 300 doRegisterMark
  299.     550 580 doRegisterMark
  300.     (Magenta) doLabel
  301. } def
  302.  
  303. /ppDoYellow
  304. {
  305.     200 600 4 .95 .01 doYellowBlock
  306.     325 600 6 .85 .01 doYellowBlock
  307.     105 420 8 .75 .01 doYellowBlock
  308.     325 420 8 .50 .02 doYellowBlock
  309.     70 190 6 .25 .03 doYellowBlock
  310.     240 190 6 .15 .03 doYellowBlock
  311.     410 190 6 .05 .03 doYellowBlock
  312.     3 ppDoSolid
  313.     4 ppDoSolid
  314.     5 ppDoSolid
  315.     6 ppDoSolid
  316.     ppDoDivider
  317.     70 300 doRegisterMark
  318.     70 580 doRegisterMark
  319.     550 300 doRegisterMark
  320.     550 580 doRegisterMark
  321.     (Yellow) doLabel
  322. } def
  323.  
  324. /ppDoBlack
  325. {
  326.     (Black) doLabel
  327. } def
  328.